home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / xes131.lha / XES / REXX / Paginate.xdme < prev    next >
Encoding:
Text File  |  1994-12-23  |  595 b   |  32 lines
  1. /* Paginate.xdme */
  2.  
  3. address 'XDME.1'
  4. options results
  5. H = GetVal("$_H")
  6. hf = GetVal("$_hf")
  7. h0 = GetVal("$_h0")
  8. h1 = GetVal("$_h1")
  9. F = GetVal("$_F")
  10. ff = GetVal("$_ff")
  11. f0 = GetVal("$_f0")
  12. f1 = GetVal("$_f1")
  13. N = GetVal("$_N")
  14. t = GetVal("$_t")
  15. b = GetVal("$_b")
  16. p = GetVal("$_p")
  17. l = GetVal("$_l")
  18. r = GetVal("$_r")
  19. Title = GetVal("$_T")
  20.  
  21. headers = "-H """H""" -hf """hf""" -h0 """h0""" -h1 """h1"""
  22. footers = "-F """F""" -ff """ff""" -f0 """f0""" -f1 """f1"""
  23. margins =
  24.  
  25.  
  26. GetVal:
  27.     parse arg v
  28.     xcom = "rxresult" v
  29.     xcom
  30.     if result = "RESULT" then return ""
  31.     else return result
  32.